#print ('My first R script')
perf_data <- read.table('./raw_stats.dat',TRUE)
plot(100-perf_data[,'V1'],type='b', xlab='Time in Seconds', ylab='% utilisation (U_i)')


u_i <-mean( 100-perf_data['V1'])

throughput <- 94

d_i <- u_i / throughput


